if known modes_mf: endinput; fi;
modes_mf := 3.2;
base_version := base_version & "/modes 3.2";
def mode_param (suffix v) (expr e) =
if unknown mode_guard_.v:
v := e;
mode_guard_.v := 1;
enddef;
def mode_common_setup_ =
mode_param (proofing, 0);
mode_param (fontmaking, 1);
mode_param (tracingtitles, if pixels_per_inch > 700: 1 else: 0 fi);
enddef;
def landscape =
extra_setup := extra_setup & "landscape_;"
enddef;
def landscape_ =
begingroup
interim warningcheck := 0;
pixels_per_inch := aspect_ratio * pixels_per_inch;
aspect_ratio := 1 / aspect_ratio;
fix_units; endgroup
enddef;
def mode_special_ (suffix
) = strings, d;s : = str;
d := decimal scantokens s;
special s & "=" & d;
enddef;
def mode_output_specials_ =
begingroup
save d, s, p, p_p_i;
string p;
interim warningcheck := 0; p_p_i = pixels_per_inch / mag;
save pixels_per_inch;
pixels_per_inch := p_p_i;
special "jobname=" & jobname;
mode_special_ (mag);
p := if string mode:
mode
else:
substring (0, length (mode_name[mode]) - 1) of mode_name[mode]
fi;
special "mode=" & p;
mode_special_ (pixels_per_inch);
if aspect_ratio <> 1:
mode_special_ (aspect_ratio);
fi;
mode_special_ (blacker);
mode_special_ (fillin);
mode_special_ (o_correction);
endgroup
enddef;
def BCPL_string (expr s, n) =
for l := if length (s) >= n: n-1 else: length (s) fi: l
for k := 1 upto l: , substring (k - 1, k) of s endfor
for k := l + 2 upto n: , 0 endfor
endfor
enddef;
def coding_scheme expr s =
headerbyte 9: BCPL_string (s, 40);
special "codingscheme=" & s
enddef;
def font_family expr s =
headerbyte 49: BCPL_string (s, 20);
special "fontid=" & s
enddef;
def font_face_byte expr x =
headerbyte 72: x;
special "fontfacebyte";
numspecial x
enddef;
Xerox_world := 1;
inner end;
let primitive_end_ = end;
def end =
if fontmaking > 0:
font_family font_identifier_;
coding_scheme font_coding_scheme_;
font_face_byte max (0, 254 - round 2designsize);
mode_output_specials_;
fi;
primitive_end_
enddef;
outer end, primitive_end_;
let bye = end;
def mode_write_white_setup_ =
newinternal blacker_min;
def define_whole_blacker_pixels(text t) =
forsuffixes = t ::=hround(
.#*hppp + blacker);if <=blacker_min-1:
: = blackermin;fiendforenddef;defdefinewholeverticalblackerpixels(textt) = forsuffixes=t: : = vround (.#*hppp+blacker);
if
< = blackermin - 1 ::=blacker_min _o_; fi endfor enddef;
let mode_write_white_setup_ = relax
enddef;
mode_def agfafzz = mode_param (pixels_per_inch, 406);
mode_param (blacker, .2);
mode_param (fillin, 0);
mode_param (o_correction, .6);
mode_common_setup_;
enddef;
AgfaFourZeroZero := agfafzz;
mode_def agfatfzz = mode_param (pixels_per_inch, 400);
cx_;
enddef;
AgfaThreeFourZeroZero := agfatfzz;
mode_def amiga = mode_param (pixels_per_inch, 100);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
onezz := amiga;
OneZeroZero := amiga;
mode_def aps = mode_param (pixels_per_inch, 722.909);
mode_param (blacker, .2);
mode_param (fillin, .2);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
mode_def apssixhi = mode_param (pixels_per_inch, 1016);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
mode_def atariezf = mode_param (pixels_per_inch, 300);
mode_param (blacker, -.25);
mode_param (fillin, .5);
mode_param (o_correction, 0);
mode_param (blacker_min, 2);
mode_common_setup_;
mode_write_white_setup_;
enddef;
AtariSLMEightZeroFour := atariezf;
mode_def atarinf = mode_param (pixels_per_inch, 95);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 0.1);
mode_common_setup_;
enddef;
AtariNineFive := atarinf;
mode_def atarins = mode_param (pixels_per_inch, 96);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 0.1);
mode_common_setup_;
enddef;
AtariNineSix := atarins;
mode_def atariotf = mode_param (pixels_per_inch, 101);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .4);
mode_common_setup_;
enddef;
AtariSMOneTwoFour := atariotf;
mode_def bitgraph = mode_param (pixels_per_inch, 118);
mode_param (blacker, .55);
mode_param (fillin, .1);
mode_param (o_correction, .3);
mode_common_setup_;
enddef;
mode_def bjtenex = mode_param (pixels_per_inch, 360);
mode_param (blacker, .6);
mode_param (fillin, 0);
mode_param (o_correction, .6);
mode_common_setup_;
enddef;
mode_def boise = mode_param (pixels_per_inch, 180);
mode_param (blacker, .55);
mode_param (fillin, .1);
mode_param (o_correction, .3);
mode_common_setup_;
enddef;
mode_def canonbjc = mode_param (pixels_per_inch, 360);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .8);
mode_common_setup_;
enddef;
CanonBJCSixZeroZero := canonbjc;
mode_def canonex = mode_param (pixels_per_inch, 600);
mode_param (blacker, .2);
mode_param (fillin, .1);
mode_param (o_correction, .85);
mode_common_setup_;
enddef;
CanonEX := canonex;
mode_def canonlbp = mode_param (pixels_per_inch, 240);
mode_param (blacker, .2);
mode_param (fillin, .2);
mode_param (o_correction, .4);
mode_common_setup_;
enddef;
CanonLBPTen := canonlbp;
mode_def cg = mode_param (pixels_per_inch, 1301);
mode_param (aspect_ratio, 1569 / pixels_per_inch);
mode_param (blacker, .2);
mode_param (fillin, .2);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
CompugraphicEightSixZeroZero := cg;
mode_def cgl = cg_;
landscape;
enddef;
mode_def cgnszz = mode_param (pixels_per_inch, 1200);
mode_param (blacker, .65);
mode_param (fillin, -.1);
mode_param (o_correction, .5);
mode_common_setup_;
enddef;
CompugraphicNineSixZeroZero := cgnszz;
mode_def crs = mode_param (pixels_per_inch, 4000 + 4000/3);
mode_param (blacker, 4);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
mode_def cx = mode_param (pixels_per_inch, 300);
mode_param (blacker, 0);
mode_param (fillin, .2);
mode_param (o_correction, .6);
mode_common_setup_;
enddef;
CanonCX := cx;
corona := cx;
dp := cx; hplaser := cx;
imagen := cx;
kyocera := cx;
laserwriter := cx;
laserjethi := cx;
laserjet := cx;
CanonSX := cx;
CanonLBPLX := cx;
mode_def datadisc = mode_param (pixels_per_inch, 70);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
DD := datadisc;
mode_def newdd = mode_param (aspect_ratio, 4/3);
datadisc_;
enddef;
DataDiscNew := newdd;
mode_def declarge = mode_param (pixels_per_inch, 100);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
DEClarge := declarge;
elvira := declarge;
mode_def decsmall = mode_param (pixels_per_inch, 82);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
DECsmall := decsmall;
mode_def deskjet = mode_param (pixels_per_inch, 300);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .6);
mode_common_setup_;
enddef;
HPDeskJet := deskjet;
mode_def docutech = mode_param (pixels_per_inch, 600);
mode_param (blacker, 1);
mode_param (fillin, .1);
mode_param (o_correction, 0.9);
mode_common_setup_;
enddef;
XeroxDocutech := docutech;
mode_def dover = mode_param (pixels_per_inch, 384);
mode_param (blacker, 1.2);
mode_param (fillin, 0);
mode_param (o_correction, .6);
mode_common_setup_;
enddef;
mode_def eighthre = mode_param (pixels_per_inch, 83);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
EightThree := eighthre;
mode_def epsdrft = mode_param (pixels_per_inch, 120);
mode_param (aspect_ratio, 72 / pixels_per_inch);
epson_;
enddef;
epsdraft := epsdrft;
mode_def epsdrftl = epsdrft_;
landscape;
enddef;
mode_def epsfast = mode_param (pixels_per_inch, 60);
mode_param (aspect_ratio, 72 / pixels_per_inch);
epson_;
enddef;
mode_def epsfastl = epsfast_;
landscape;
enddef;
mode_def epson = mode_param (pixels_per_inch, 240);
mode_param (aspect_ratio, 216 / pixels_per_inch);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
EpsonMXFX := epson;
epshi := epson;
epsonfx := epson;
mode_def epsonl = epson_;
landscape;
enddef;
mode_def epsonact = mode_param (pixels_per_inch, 300);
mode_param (blacker, .8);
mode_param (fillin, 0);
mode_param (o_correction, 0.95);
mode_common_setup_;
enddef;
EpsonAction := epsonact;
mode_def epsonlo = mode_param (pixels_per_inch, 120);
mode_param (aspect_ratio, 216 / pixels_per_inch);
epson_;
enddef;
epslo := epsonlo;
mode_def epsonlol = epsonlo_;
landscape;
enddef;
mode_def epsonsq = mode_param (proofing, 0)
mode_param (pixels_per_inch, 360);
mode_param (blacker, .7);
mode_param (fillin, .2);
mode_param (o_correction, .9);
mode_common_setup_;
enddef;
EpsonSQEightSevenZero := epsonsq;
mode_def epstypro = mode_param (pixels_per_inch, 360);
mode_param (blacker, 0.2);
mode_param (fillin, 0.8);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
EpsonStylusPro := epstypro;
mode_def epstyplo = mode_param (pixels_per_inch, 180);
mode_param (blacker, .35);
mode_param (fillin, 0.8);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
EpsonStylusProLow := epstyplo;
mode_def epstypmd = mode_param (pixels_per_inch, 720);
mode_param (aspect_ratio, 360 / pixels_per_inch);
mode_param (blacker, 0);
mode_param (fillin, 0.8);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
EpsonStylusProMed := epstypmd;
mode_def esphi = mode_param (pixels_per_inch, 720);
mode_param (blacker, 0);
mode_param (fillin, 0.8);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
EpsonStylusProHigh = esphi;
mode_def epstylus = mode_param (pixels_per_inch, 360);
mode_param (blacker, .35);
mode_param (fillin, 0);
mode_param (o_correction, .8);
mode_common_setup_;
enddef;
mode_def fourfour = mode_param (pixels_per_inch, 44);
mode_param (blacker, 0.05);
mode_param (fillin, .1);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
FourFour := fourfour;
mode_def gtfax = mode_param (pixels_per_inch, 204);
mode_param (aspect_ratio, 196 / pixels_per_inch);
mode_param (blacker, 0);
mode_param (fillin, .2);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
GThreefax := gtfax;
gtfaxhi := GThreefax;
mode_def gtfaxl = gtfax_;
landscape;
enddef;
mode_def gtfaxlo = mode_param (pixels_per_inch, 204);
mode_param (aspect_ratio, 98 / pixels_per_inch);
gtfax_;
enddef;
mode_def gtfaxlol = gtfaxlo_;
landscape;
enddef;
mode_def highfax = mode_param (pixels_per_inch, 200);
mode_param (blacker, 0);
mode_param (fillin, .2);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
hifax := highfax;
mode_def hprugged = mode_param (pixels_per_inch, 180);
mode_param (blacker, .55);
mode_param (fillin, .1);
mode_param (o_correction, .3);
mode_common_setup_;
enddef;
mode_def ibm_a = mode_param (pixels_per_inch, 240);
mode_param (blacker, .35);
mode_param (fillin, -.2);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
mode_def ibmd = mode_param (pixels_per_inch, 240);
mode_param (blacker, .3);
mode_param (fillin, .4);
mode_param (o_correction, .75);
mode_common_setup_;
enddef;
mode_def ibmega = mode_param (pixels_per_inch, 96);
mode_param (aspect_ratio, .841);
mode_param (blacker, .3);
mode_param (fillin, 0);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
mode_def ibmegal = ibmega_;
landscape;
enddef;
mode_def ibmfzon = mode_param (pixels_per_inch, 300);
mode_param (blacker, .1);
mode_param (fillin, 0);
mode_param (o_correction, .75);
mode_param (blacker_min, 2);
mode_common_setup_;
mode_write_white_setup_;
enddef;
IBMFourZeroOneNine := ibmfzon;
mode_def ibmfztn = mode_param (pixels_per_inch, 600);
mode_param (blacker, .05);
mode_param (fillin, 0);
mode_param (o_correction, .75);
mode_common_setup_;
enddef;
IBMFourZeroTwoNine := ibmfztn;
IBMFourTwoThreeZero := ibmfztn;
IBMFourTwoFiveZero := ibmfztn;
mode_def ibmpp = mode_param (pixels_per_inch, 240);
mode_param (aspect_ratio, 216 / pixels_per_inch);
mode_param (blacker, 0);
mode_param (fillin, .2);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
IBMProPrinter := ibmpp;
proprinter := IBMProPrinter;
mode_def ibmppl = ibmpp_;
landscape;
enddef;
mode_def ibmsoff = mode_param (pixels_per_inch, 118);
mode_param (blacker, .8);
mode_param (fillin, .2);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
IBMSixOneFiveFour := ibmsoff;
mode_def sherpa = mode_param (pixels_per_inch, 240);
mode_param (blacker, 1);
mode_param (blacker_min, 2);
mode_param (fillin, 1);
mode_param (o_correction, .5);
mode_common_setup_;
mode_write_white_setup_;
enddef;
IBMSixSixSevenZero := sherpa;
mode_def ibmteot = mode_param (pixels_per_inch, 240);
mode_param (blacker, .6);
mode_param (blacker_min, 2);
mode_param (fillin, .4);
mode_param (o_correction, 0);
mode_common_setup_;
mode_write_white_setup_;
enddef;
IBMThreeEightOneTwo := ibmteot;
IBMUlfHolleberg := IBMThreeEightOneTwo;
mode_def ibmtetz = mode_param (pixels_per_inch, 240);
mode_param (blacker, .78);
mode_param (fillin, .25);
mode_param (o_correction, .5);
mode_common_setup_;
enddef;
IBMThreeEightTwoZero := ibmtetz;
mode_def ibmtont = mode_param (pixels_per_inch, 100);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
IBMThreeOneNineThree := ibmtont;
mode_def ibmtosn = mode_param (pixels_per_inch, 87);
mode_param (aspect_ratio, 0.75);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
IBMThreeOneSevenNine := ibmtosn;
mode_def ibmtosnl = ibmtosn_;
landscape;
enddef;
mode_def ibmvga = mode_param (pixels_per_inch, 110);
mode_param (blacker, .3);
mode_param (fillin, 0);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
mode_def ibx = mode_param (pixels_per_inch, 4000 + 4000 + 1600);
mode_param (blacker, 4);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
ChelgraphIBX := ibx;
mode_def itoh = mode_param (pixels_per_inch, 160);
mode_param (aspect_ratio, 144 / pixels_per_inch);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .1);
mode_common_setup_;
enddef;
CItohEightFiveOneZero := itoh;
mode_def itohl = itoh_;
landscape;
enddef;
mode_def itohtoz = mode_param (pixels_per_inch, 240);
mode_param (aspect_ratio, 144 / pixels_per_inch);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
citohtoz := itohtoz;
CItohThreeOneZero := itohtoz;
cthreeten := itohtoz;
mode_def itohtozl = itohtoz_;
landscape;
enddef;
mode_def iw = mode_param (pixels_per_inch, 144);
mode_param (blacker, 0);
mode_param (fillin, 0.3);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
imagewriter := iw;
mode_def jetiiisi = mode_param (pixels_per_inch, 300);
mode_param (blacker, .2);
mode_param (fillin, 0);
mode_param (o_correction, .7);
mode_common_setup_;
enddef;
HPLaserJetIIISi := jetiiisi;
mode_def lasf = mode_param (pixels_per_inch, 144);
mode_param (blacker, .3);
mode_param (fillin, -.1);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
LASevenFive := lasf;
mode_def lexmarkr = mode_param (pixels_per_inch, 1200);
mode_param (blacker, 3);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
LexmarkOptraR := lexmarkr;
mode_def linolo = mode_param (pixels_per_inch, 635);
linoone_;
enddef;
LinotypeOneZeroZeroLo := linolo;
linohalf := LinotypeOneZeroZeroLo;
mode_def linolttz = mode_param (pixels_per_inch, 3386);
mode_param (blacker, 0);
mode_param (o_correction, 1);
mode_param (fillin, 0);
mode_common_setup_;
enddef;
LinotypeLThreeThreeZero := linolttz;
mode_def linoone = mode_param (pixels_per_inch, 1270);
mode_param (blacker, .65);
mode_param (o_correction, 1);
mode_param (fillin, -.1);
mode_common_setup_;
enddef;
LinotypeOneZeroZero := linoone;
linohi := LinotypeOneZeroZero;
linothreelo := LinotypeOneZeroZero;
mode_def linotzzh = mode_param (pixels_per_inch, 2540);
mode_param (blacker, .2); mode_param (fillin, .2); mode_param (o_correction, 1); mode_common_setup_;
enddef;
linothree := linotzzh;
LinotypeThreeZeroZeroHi := linotzzh;
linosuper := linotzzh;
mode_def ljfive = mode_param (pixels_per_inch, 600);
mode_param (blacker, .75);
mode_param (fillin, .3);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
laserjetfive := ljfive;
mode_def ljfivemp = mode_param (pixels_per_inch, 600);
mode_param (blacker, .4);
mode_param (fillin, .3);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
laserjetfivemp := ljfivemp;
mode_def ljfour = mode_param (pixels_per_inch, 600);
mode_param (blacker, .25);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
laserjetfour := ljfour;
qmsesz := ljfour;
aselect := ljfour;
mode_def ljlo = mode_param (pixels_per_inch, 150);
mode_param (blacker, 0);
mode_param (fillin, .1);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
laserjetlo := ljlo;
mode_def lmaster = mode_param (pixels_per_inch, 1000);
mode_param (blacker, 0.2);
mode_param (fillin, 0.0);
mode_param (o_correction, 0.4);
mode_common_setup_;
enddef;
lasermaster := lmaster;
mode_def lnotr = mode_param (pixels_per_inch, 300);
mode_param (blacker, 0);
mode_param (blacker_min, 2);
mode_param (fillin, -.6);
mode_param (o_correction, .5);
mode_common_setup_;
mode_write_white_setup_;
enddef;
LNOthreR := lnotr;
mode_def lnzo = mode_param (pixels_per_inch, 300);
mode_param (blacker, .9);
mode_param (blacker_min, 2);
mode_param (fillin, 0);
mode_param (o_correction, .5);
mode_common_setup_;
mode_write_white_setup_;
enddef;
LNZeroOne := lnzo;
lps := lnzo;
LPSFourZero := lnzo;
mode_def lpstz = mode_param (pixels_per_inch, 300);
mode_param (blacker, .6);
mode_param (fillin, -.3);
mode_param (o_correction, .6);
mode_common_setup_;
enddef;
LPSTwoZero := lpstz;
mode_def lqlores = mode_param (pixels_per_inch, 180);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .1);
mode_common_setup_;
enddef;
EpsonLQFiveZeroZeroLo := lqlores;
mode_def lqmed = mode_param (pixels_per_inch, 360);
mode_param (aspect_ratio, 180 / pixels_per_inch);
mode_param (blacker, 0); mode_param (fillin, 0);
mode_param (o_correction, .1);
mode_common_setup_;
enddef;
lqmedres := lqmed;
EpsonLQFiveZeroZeroMed := lqmed;
mode_def lqmedl = lqmed_;
landscape;
enddef;
mode_def lview = mode_param (pixels_per_inch, 118.06);
mode_param (aspect_ratio, 109.25 / pixels_per_inch);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
mode_def lwpro = mode_param (pixels_per_inch, 800);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
mode_def macmag = mode_param (pixels_per_inch, 86.4);
mode_param (blacker, .35);
mode_param (fillin, .1);
mode_param (o_correction, .3);
mode_common_setup_;
enddef;
mode_def mactrue = mode_param (pixels_per_inch, 72);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
MacTrueSize := mactrue;
mode_def ncd = mode_param (pixels_per_inch, 95);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
mode_def nec = mode_param (pixels_per_inch, 180);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
mode_def nechi = mode_param (pixels_per_inch, 360);
cx_;
enddef;
lqhires := nechi;
mode_def neclm = mode_param (pixels_per_inch, 320);
mode_param (blacker, .1);
mode_param (fillin, 0);
mode_param (o_correction, .6);
mode_common_setup_;
enddef;
mode_def nectzo = mode_param (pixels_per_inch, 160);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
NecTwoZeroOne := nectzo;
mode_def nexthi = mode_param (pixels_per_inch, 400);
cx_;
enddef;
NeXTprinter := nexthi;
Newgen := nexthi; mode_def nextscrn = mode_param (pixels_per_inch, 100);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
NeXTscreen := nextscrn;
nextscreen := nextscrn;
mode_def nineone = mode_param (pixels_per_inch, 91);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
NineOne := nineone;
mode_def nullmode = mode_param (pixels_per_inch, 101);
mode_param (proofing, -1);
mode_param (fontmaking, 1);
enddef;
mode_def onetz = mode_param (pixels_per_inch, 120);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
OneTwoZero := onetz;
mode_def ocessfz = mode_param (pixels_per_inch, 508);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .7);
mode_common_setup_;
enddef;
OCESixSevenFiveZeroPS := ocessfz;
mode_def okidata = mode_param (pixels_per_inch, 240);
mode_param (aspect_ratio, 288 / pixels_per_inch);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
okihi := okidata;
mode_def okidatal = okidata_;
landscape;
enddef;
mode_def okifte = mode_param (pixels_per_inch, 600);
mode_param (blacker, .6);
mode_param (fillin, .1);
mode_param (o_correction, .85);
mode_common_setup_;
enddef;
okifourten := okifte;
mode_def pcscreen = mode_param (pixels_per_inch, 118);
mode_param (blacker, .5);
mode_param (fillin, .1);
mode_param (o_correction, .3);
mode_common_setup_;
enddef;
mode_def pcprevw = mode_param (pixels_per_inch, 118);
mode_param (blacker, .2);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
mode_def phaser = mode_param (pixels_per_inch, 300);
mode_param (blacker, 1.1);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
mode_def prntware = mode_param (pixels_per_inch, 1200);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
PrintwareSevenTwoZeroIQ := prntware;
printware := prntware;
mode_def qms = mode_param (pixels_per_inch, 300);
mode_param (blacker, .6);
mode_param (blacker_min, 2);
mode_param (fillin, -.3);
mode_param (o_correction, .6);
mode_common_setup_;
mode_write_white_setup_;
enddef;
mode_def qmsostf = mode_param (pixels_per_inch, 600);
mode_param (blacker, 1);
mode_param (blacker_min, 2);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
mode_write_white_setup_;
enddef;
QMSOneSevenTwoFive := qmsostf;
mode_def qmsoszz = mode_param (pixels_per_inch, 600);
mode_param (blacker, .2);
mode_param (blacker_min, 2);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
mode_write_white_setup_;
enddef;
QMSOneSevenZeroZero := qmsoszz;
mode_def qmstftf = mode_param (pixels_per_inch, 1200);
mode_param (blacker, .3);
mode_param (fillin, .5);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
QMSTwoFourTwoFive := qmstftf;
mode_def ricoh = mode_param (pixels_per_inch, 300);
mode_param (blacker, .2);
mode_param (blacker_min, 2);
mode_param (fillin, -.2);
mode_param (o_correction, .5);
mode_common_setup_;
mode_write_white_setup_;
enddef;
RicohFourZeroEightZero := ricoh;
RicohFortyEighty := ricoh;
mode_def ricoha = mode_param (pixels_per_inch, 300);
mode_param (blacker, .2);
mode_param (blacker_min, 2);
mode_param (fillin, 0);
mode_param (o_correction, .75);
mode_common_setup_;
mode_write_white_setup_;
enddef;
RicohA := ricoha;
IBMFourTwoOneSix := ricoha;
mode_def ricohlp = mode_param (pixels_per_inch, 300);
mode_param (blacker, .65);
mode_param (blacker_min, 2);
mode_param (fillin, -.2);
mode_param (o_correction, .5);
mode_common_setup_;
mode_write_white_setup_;
enddef;
RicohLP := ricohlp;
LNOthree := ricohlp;
LNZeroThree := ricohlp;
mode_def ricohsp = mode_param (pixels_per_inch, 600);
mode_param (blacker, .0);
mode_param (fillin, 0.2);
mode_param (o_correction, .6);
mode_common_setup_;
enddef;
mode_def sparcptr = mode_param (pixels_per_inch, 400);
mode_param (blacker, .25);
mode_param (fillin, .2);
mode_param (o_correction, .6);
mode_common_setup_;
enddef;
SparcPrinter := sparcptr;
mode_def starnlt = mode_param (pixels_per_inch, 240);
mode_param (aspect_ratio, 216 / pixels_per_inch);
mode_param (blacker, -.6);
mode_param (fillin, .2);
mode_param (o_correction, .4);
mode_common_setup_;
enddef;
StarNLOneZero := starnlt;
mode_def starnltl = starnlt_;
landscape;
enddef;
mode_def stylewr = mode_param (pixels_per_inch, 360);
mode_param (blacker, 0);
mode_param (fillin, .2);
mode_param (o_correction, .6);
mode_common_setup_;
enddef;
stylewriter := stylewri;
epstylwr := stylewri;
mode_def sun = mode_param (pixels_per_inch, 85);
mode_param (blacker, .35);
mode_param (fillin, .1);
mode_param (o_correction, .3);
mode_common_setup_;
enddef;
mode_def supre = mode_param (pixels_per_inch, 2400);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
mode_def toshiba = mode_param (pixels_per_inch, 180);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, .2);
mode_common_setup_;
enddef;
epsonlq := toshiba;
mode_def ultre = mode_param (pixels_per_inch, 1200);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
Prism := ultre;
mode_def vs = mode_param (pixels_per_inch, 78);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 0);
mode_common_setup_;
enddef;
VAXstation := vs;
gpx := vs;
mode_def vtftzz = mode_param (pixels_per_inch, 1800);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
VarityperFourTwoZeroZero := vtftzz;
mode_def vtftzzhi = mode_param (pixels_per_inch, 2400);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
VarityperFourThreeZeroZeroHi := vtftzzhi;
mode_def vtftzzlo = mode_param (pixels_per_inch, 1200);
mode_param (blacker, 3.5);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
VarityperFourThreeZeroZeroLo := vtftzzlo;
mode_def vtfzszw = mode_param (pixels_per_inch, 600);
mode_param (blacker, .7);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
VarityperFiveZeroSixZeroW := vtfzszw;
APSSixMed := vtfzszw;
mode_def vtszz = mode_param (pixels_per_inch, 600);
mode_param (blacker, 0);
mode_param (fillin, 0);
mode_param (o_correction, 1);
mode_common_setup_;
enddef;
VarityperSixZeroZero := vtszz;
VTSix := vtszz;
varityper := vtszz;
mode_def xrxesnz = mode_param (pixels_per_inch, 300);
mode_param (blacker, 0.4);
mode_param (blacker_min, 2);
mode_param (fillin, 0);
mode_param (o_correction, 0.2);
mode_common_setup_;
mode_write_white_setup_;
enddef;
XeroxEightSevenNineZero := xrxesnz;
mode_def xrxfzfz = mode_param (pixels_per_inch, 300);
mode_param (blacker, .7);
mode_param (fillin, 0);
mode_param (o_correction, .5);
mode_common_setup_;
enddef;
XeroxFourZeroFiveZero := xrxfzfz;
mode_def xrxnszz = mode_param (pixels_per_inch, 300);
mode_param (blacker, .7);
mode_param (fillin, 0);
mode_param (o_correction, .5);
mode_common_setup_;
enddef;
XeroxNineSevenZeroZero := xrxnszz;
mode_def xrxtszz = mode_param (pixels_per_inch, 300);
mode_param (blacker, .85);
mode_param (blacker_min, 2);
mode_param (fillin, -.1);
mode_param (o_correction, .5);
mode_common_setup_;
mode_write_white_setup_;
enddef;
XeroxThreeSevenZeroZero := xrxtszz;
mode_def help = for i = 1 upto number_of_modes:
message mode_name[i];
endfor;
save ?;
enddef;
let ? = help_;
screen_rows := 400;
screen_cols := 500;
localfont := ljfour;